home *** CD-ROM | disk | FTP | other *** search
/ Armageddon - Interactive Preview / Interactive Preview: Armageddon.iso / mac / QUIZGAME.dxr / 00163_OK script.ls < prev    next >
Encoding:
Text File  |  1998-05-19  |  1.1 KB  |  53 lines
  1. global gTime, gPlayList, gCheck
  2.  
  3. on mouseDown
  4.   puppetSprite(the clickOn, 1)
  5.   set s to the memberNum of sprite the clickOn
  6.   repeat while the stillDown
  7.     if rollOver(the clickOn) then
  8.       set the memberNum of sprite the clickOn to 36
  9.       updateStage()
  10.       next repeat
  11.     end if
  12.     set the memberNum of sprite the clickOn to 35
  13.     updateStage()
  14.   end repeat
  15. end
  16.  
  17. on mouseUp
  18.   set s to the memberNum of sprite the clickOn
  19.   if rollOver(the clickOn) then
  20.     set the memberNum of sprite the clickOn to 34
  21.     updateStage()
  22.     add(gPlayList, field 161)
  23.     puppetSound(1, "soft metal")
  24.     set gCheck to gCheck - 1
  25.     updateStage()
  26.     if gCheck = 0 then
  27.       puppetSprite(2, 0)
  28.       updateStage()
  29.       case gTime of
  30.         1:
  31.           go("icon1")
  32.         2:
  33.           go("icon2")
  34.         3:
  35.           go("icon3")
  36.       end case
  37.     else
  38.       put EMPTY into field 161
  39.       puppetSprite(2, 0)
  40.       updateStage()
  41.       go(#next)
  42.     end if
  43.   end if
  44. end
  45.  
  46. on mouseEnter me
  47.   set the member of sprite the currentSpriteNum to "OK ON ROLLOVER"
  48. end
  49.  
  50. on mouseLeave me
  51.   set the member of sprite the currentSpriteNum to "OK NORMAL"
  52. end
  53.